home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / intee2.pov < prev    next >
Encoding:
Text File  |  1992-04-23  |  2.4 KB  |  79 lines
  1. // Persistence of Vision Raytracer
  2. // Intersection of two cylinders,  with holes cut from each one, in pink
  3. // marblized stone.
  4. // Image by Dan Farmer.
  5. // Demonstrates CSG intersection,  layered stone texture.
  6. // Time: about 3 hours @640x480+a0.2 on 486/33
  7.  
  8.  
  9. #include "include.inc"
  10.  
  11. camera {
  12.    location <0.0  10  -26>
  13.    direction <0.0 0.0  1.0>
  14.    up  <0.0  1.0  0.0>
  15.    right <1.33333 0.0 0.0>
  16.    look_at <0 0 0>
  17. }
  18.  
  19.  
  20. // Light source
  21. object { light_source { <-10 20 -25> color White  }}
  22. object { light_source { <0 0 0> color White  }}
  23.  
  24. #declare Color1A = color DustyRose
  25. #declare Color1B = color DarkSlateGray
  26. #declare Color2A = color DarkSlateGray
  27. object {
  28.     intersection {
  29.         quadric { Cylinder_X }
  30.         quadric { Cylinder_Y }
  31.         quadric { Cylinder_X inverse scale <1 0.5 0.5> }
  32.         quadric { Cylinder_Y inverse scale <0.5 1 0.5> }
  33.  
  34.         quadric { Cylinder_X inverse scale <1 0.125  0.125> translate <0 +0.75   0>  }
  35.         quadric { Cylinder_X inverse scale <1 0.125  0.125> translate <0 -0.75   0>  }
  36.         quadric { Cylinder_X inverse scale <1 0.125  0.125> translate <0  0  -0.75>  }
  37. //        quadric { Cylinder_X inverse scale <1 0.125  0.125> translate <0  0  +0.75>  }
  38.  
  39.         quadric { Cylinder_Y inverse scale <0.125 1 0.125> translate <-0.75 0 0>  }
  40.         quadric { Cylinder_Y inverse scale <0.125 1 0.125> translate <+0.75 0 0>  }
  41.         quadric { Cylinder_Y inverse scale <0.125 1 0.125> translate <0 0 -0.75>  }
  42. //        quadric { Cylinder_Y inverse scale <0.125 1 0.125> translate <0 0 +0.75>  }
  43.     }
  44.     // Underlying surface is very subtly mottled with bozo
  45.     texture {
  46.         ambient 0.25
  47.         bozo
  48.         turbulence 0.25
  49.         color_map {
  50.             [0.0 1.0 color red 0.9 green 0.75 blue 0.75
  51.                      color red 0.6 green 0.6 blue 0.6 ]
  52.         }
  53.         scale <.4 .4 .4>
  54.     }
  55.  
  56.     // Second layer texture has some alpha values, yet a fair amount of color
  57.     // Viening is kept quite thin.
  58.     texture {
  59.         Glossy
  60.         granite
  61.         color_map {
  62.             [0.0 0.9 color Color1A alpha 1 color Color1A alpha 0.5 ]
  63.             [0.9 1.0  color Color1B color Color1B ]
  64.         }
  65.         scale <2 2 2>
  66.         phong 0.25
  67.         phong_size 75
  68.         brilliance 4
  69.     }
  70.  
  71. bounded_by {
  72.     sphere { <0 0 0> 1.5 }
  73. }
  74. scale <10 10 10>
  75. rotate <0 45 0>
  76. }
  77.  
  78. object { light_source { <0 0 0> color DimGray  }}
  79.